home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / game / role / kryjelDEMO.lha / Amgif.Bak / Amgif.amosSourceCode
AMOS Source Code  |  1997-07-17  |  640b  |  22 lines
  1. Screen Open 0,640,200,16,Hires : Flash Off : Hide 
  2. Curs Off : Cls 0 : Paper 0 : Pen 6
  3. Wait Vbl 
  4.  
  5. Print "I will AMGIF process an animation list called X.pic.???? .."
  6. Print "I am looking for a series of single 64 color pics in Ram:"
  7. Print "The pics should be of the form :    X.pic.0001"
  8. Print "                                    X.pic.0002"
  9. Print "                                    etc.."
  10. Print "Use paint software like Brilliance to save single frames to Ram: as X.pic"
  11. Wait 200
  12. T=0
  13. Dir$="Ram:"
  14. If Exist("X.pic.0001") Then Goto MAIN
  15. Print "No X.pic.0001 in Ram!"
  16. Wait 100
  17. End 
  18.  
  19. MAIN
  20. T=T+1
  21. FILE$=Dir First$("X.pic.*")
  22. Exec "amgif";FILE$;T